This dataset is described on pp. 9-10 of the textbook. You may load it from the dataset URL linked above or from the resampledata package.
library(tidyverse)
DATA <- read_csv("https://raw.githubusercontent.com/STAT-JET-ASU/Datasets/master/Chihara/Beerwings.csv")
glimpse(DATA)
Observations: 30
Variables: 4
$ ID <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 1…
$ Hotwings <dbl> 4, 5, 5, 6, 7, 7, 7, 8, 8, 8, 9, 11, 11, 12, 12, 13, 13, 13,…
$ Beer <dbl> 24, 0, 12, 12, 12, 12, 24, 24, 0, 12, 24, 24, 24, 30, 30, 24…
$ Gender <chr> "F", "F", "F", "F", "F", "F", "M", "F", "M", "M", "F", "F", …
head(DATA)
# A tibble: 6 x 4
ID Hotwings Beer Gender
<dbl> <dbl> <dbl> <chr>
1 1 4 24 F
2 2 5 0 F
3 3 5 12 F
4 4 6 12 F
5 5 7 12 F
6 6 7 12 F